www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminpicsp\D_chk_edit_zhuanti.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->


<!--#include file=inc_lanmu_bl.asp-->


<%
AJAXshowLoader()


%>



	<%
biao="[ND_pic_or_sp_Special]"
sys_content_type=trim(request("sys_content_type"))






set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),5)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

err1=0

if request("nme")="" then
err1=1
%>
<script language="javascript">
alert("请填写专题名称");
history.go(-1);

</script>



<%
end if



if isnumeric(request("orders"))=0 then



err1=1
%>
<script language="javascript">
alert("顺序号必须为数字");
history.go(-1);

</script>



<%




end if




Function ChkNumeric(CHECK_ID)
		IF CHECK_ID = "1" or CHECK_ID =1 Then
			ChkNumeric = "1"
		Else
			ChkNumeric = "0"
		End If
		
		if CHECK_ID ="" then
		
		ChkNumeric = "0"
		end if
		
	End Function

Function ChkFormStr(ByVal str)
		Dim fString
		fString = str
		If IsNull(fString) Then
			ChkFormStr = ""
			Exit Function
		End If
		fString = Replace(fString, "'", "&#39;")
		fString = Replace(fString, Chr(34), "&quot;")
		fString = Replace(fString, Chr(13), "")
		fString = Replace(fString, Chr(10), "")
		fString = Replace(fString, Chr(9), "")
		fString = Replace(fString, ">", "&gt;")
		fString = Replace(fString, "<", "&lt;")
		fString = Replace(fString, "&nbsp;", " ")
		ChkFormStr = fString
	End Function


 Function Formatime(ByVal datime)
	datime = Trim(Replace(Trim(datime), vbNewLine, ""))
	If Not IsDate(datime) Then
		Formatime = Now()
		Exit Function
	End If
	If Len(datime) < 11 Then
		Formatime = CDate(datime & " " & FormatDateTime(Now, 3))
	Else
		Formatime = CDate(datime)
	End If
	Exit Function
End Function






if err1=0 then

  
set rs=server.CreateObject("adodb.recordset")


  
  
rs.open "select * from "&biao&" where id="&request("id"),conn,1,3


rs("Specialname")=trim(request("nme"))


rs("orders")=request("orders")
rs("titleColor")=request("ColorModes")
rs("titleFont")=request("FontModes")


rs("is_link_class")=Request.Form("isoutLink")

rs("is_open_use_blank")=Request.Form("LinkTarget")

rs("outlink")=Request.Form("TurnLinkUrl")


rs.update

%>
<script language="javascript">
alert("修改成功");
self.location="D_admin_zhuanti.asp?sys_content_type=<%=sys_content_type%>";

</script>



<%



end if



%>



<%
AJAXcloseLoader()
%>